The Trig Explorer/The Trig Explorer.iso/mac/Explorer/Ex_Right.dxr/00039.ls

Text File | 1998-07-22 | 729 b | 23 lines

on enterFrame
  global a, b, c
  set b to random(200) + 3
  put b into field "B"
  set a to integer(b + random(100) + (a / 10))
  put a into field "A"
  put a * a into field "A2"
  put b * b into field "B2"
  put integer((a * a) + (b * b)) into field "C2"
  set the floatPrecision to 2
  set c to float(sqrt(float(a * a) + float(b * b)))
  put c into field "C"
  put " " into field "Answer"
  set the textSize of field "Answer" to 32
  set the textSize of field "A" to 32
  set the textSize of field "B" to 32
  set the textSize of field "C" to 32
  set the textStyle of field "Answer" to "bold"
  set the textStyle of field "A" to "bold"
  set the textStyle of field "B" to "bold"
  set the textStyle of field "C" to "bold"
end